home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / mhs / cserve.hst < prev    next >
Text File  |  1993-06-24  |  1KB  |  62 lines
  1. \bel
  2. \idle 1
  3. \slep 2
  4. \cr
  5. \waitcase 3 90 "Host" "UIC" "User" 1 2 10 0
  6. \cr
  7. \go 3
  8. \:1
  9. CIS\cr
  10. \go 3
  11. \:2
  12. \003
  13. \:3
  14. \waitcase 3 90 "Host" "UIC" "User" 4 5 10 0
  15. \cr
  16. \go 6
  17. \:4
  18. CIS\cr
  19. \go 6
  20. \:5
  21. \003
  22. \:6
  23. \waitcase 3 90 "Host" "UIC" "User" 0 7 10 7
  24. CIS\cr
  25. \wait 30 "User" 10 0
  26. \:7
  27. \disp "CSERVE.HST: Did not see Host Name or User ID prompt
  28. "
  29. \ret 0
  30. \:10
  31. \idle 12
  32. \$5 /NOINT/GO:MHSXPORT\cr
  33. \waitcase 3 90 "? LOGS" "Password" "User" 21 11 0 0
  34. \003
  35. \slep 5
  36. \$5 /NOINT/GO:MHSXPORT\cr
  37. \waitcase 3 90 "? LOGS" "Password" "User" 21 11 0 0
  38. \003
  39. \slep 5
  40. \$5 /NOINT/GO:MHSXPORT\cr
  41. \waitcase 3 90 "? LOGS" "Password" "User" 21 11 0 0
  42. \disp "CSERVE.HST: CompuServe not responding to User ID
  43. "
  44. \ret 0
  45. \:11
  46. \$6\cr
  47. \waitcase 2 90 "Password" "[MHS]" 0 20 0
  48. \$6\cr
  49. \waitcase 2 90 "Password" "[MHS]" 0 20 0
  50. \$6\cr
  51. \waitcase 2 90 "Password" "[MHS]" 0 20 0
  52. \disp "CSERVE.HST: CompuServe not reponding to password.
  53. "
  54. \ret 0
  55. \:20
  56. \ret 1
  57. \:21
  58. \disp "CSERVE.HST: CompuServe system not available.  Try again later.
  59. "
  60. \ret 0
  61. \end
  62.